home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / misc / videopokeri_sr.lha / poker.h / Sheets.h < prev    next >
Text File  |  1995-02-03  |  11KB  |  298 lines
  1.  
  2. /***********************************************************************
  3.  *                                                                     *
  4.  *  Headerfile   : sheets.h                                            *
  5.  *                                                                     *
  6.  *  Program      : VideoPokeri                                         *
  7.  *                                                                     *
  8.  *  Version      : 1.02      (06.11.1991)   (03.02.1995)               *
  9.  *                                                                     *
  10.  *  Author       : JanTAki                                             *
  11.  *                 92100  RAAHE ,  FINLAND                             *
  12.  *                                                                     *
  13.  *  E-mail       : janta@ratol.fi                                      *
  14.  *                                                                     *
  15.  ***********************************************************************/
  16.  
  17.  
  18. /* sheets.h */
  19.  
  20. USHORT chip XPointer[] =
  21.     {
  22.     0x0000, 0x0000,     /*  control bytes        */
  23.  
  24.     0x06c0, 0x0000,     /*  1st line of sprite 0 */
  25.     0x0fe0, 0x0000,     /*  2st line of sprite 0 */
  26.     0x0fe0, 0x0000,     /*  3st line of sprite 0 */
  27.     0x0fe0, 0x0000,     /*  4st line of sprite 0 */
  28.     0x77dc, 0x0000,     /*  5st line of sprite 0 */
  29.     0xfbbe, 0x0000,     /*  6st line of sprite 0 */
  30.     0xfd7e, 0x0000,     /*  7st line of sprite 0 */
  31.     0x7efc, 0x0000,     /*  8st line of sprite 0 */
  32.     0xfd7e, 0x0000,     /*  9st line of sprite 0 */
  33.     0xfbbe, 0x0000,     /* 10st line of sprite 0 */
  34.     0x77dc, 0x0000,     /* 11st line of sprite 0 */
  35.     0x1fe0, 0x0000,     /* 12st line of sprite 0 */
  36.     0x2fe0, 0x0000,     /* 13st line of sprite 0 */
  37.     0x6fe0, 0x0000,     /* 14st line of sprite 0 */
  38.     0x66c0, 0x0000,     /* 15st line of sprite 0 */
  39.  
  40.     0x0000, 0x0000      /* reserved for system   */
  41.     };
  42.  
  43. USHORT voittosummat[8][8]=  /* 1. luku = panos ja 2. luku = voitto */
  44.                             {
  45.                 /*  1mk */  {    0,   30,  15,  10,   5,   4,   3,   3},
  46.                 /*  2mk */  {    0,   60,  30,  20,  10,   8,   6,   6},
  47.                 /*  3mk */  {  120,   90,  45,  30,  15,  12,   6,   6},
  48.                 /*  4mk */  {  160,  120,  60,  40,  20,  16,   8,   8},
  49.                 /*  5mk */  {  200,  150,  75,  50,  25,  20,  10,  10},
  50.                 /* 10mk     {  400,  300, 150, 100,  50,  40,  20,  20}, */
  51.                 /* 25mk     { 1000,  750, 375, 250, 125, 100,  50,  50}, */
  52.                 /* 50mk     { 2000, 1500, 750, 500, 250, 200, 100, 100}, */
  53.                             };
  54.  
  55. UBYTE *voittonimet[]=       { "VIITOSET    ",
  56.                               "VÄRISUORA   ",
  57.                               "NELOSET     ",
  58.                               "TÄYSKÄSI    ",
  59.                               "VÄRI        ",
  60.                               "SUORA       ",
  61.                               "KOLMOSET    ",
  62.                               "KAKSI PARIA ",
  63.  
  64.                               "5 OF A KIND ",
  65.                               "ROYAL FLUSH ",
  66.                               "4 OF A KIND ",
  67.                               "FULLHOUSE   ",
  68.                               "FLUSH       ",
  69.                               "STRAIGHT    ",
  70.                               "3 OF A KIND ",
  71.                               "TWO PAIRS   "
  72.                             };
  73.  
  74. UBYTE *Peitot[]=    { "PELIT  ",
  75.                       "VOITOT ",
  76.  
  77.                       "CREDITS",
  78.                       "WINS   "
  79.                     };
  80.  
  81. BYTE *SekaTextit[]= { "** PARHAIMMAT MENEVÄT LISTALLE ! **",
  82.                       "* THE BEST PLAYERS LIVE FOREVER ! *",
  83.                       "*** (SVENSKT TEKST FÖR SEGRARE) ***",
  84.                       "KIRJOITA NIMESI:",
  85.                       "WRITE YOUR NAME:",
  86.                       "SKRIV DITT NAMN:",
  87.                       "** VIDEOPOKERI HIGHSCORE-LISTA ***",
  88.                       "*** VIDEOPOKERI HIGHSCORE-LIST ***",
  89.                       " ",
  90.                       " PANOS        PIENI / SUURI",
  91.                       "   BET        SMALL / BIG  ",
  92.                       " ANDEL        LITEN / STOR ",
  93.                       "VOITIT        TUPLAATKO ?",
  94.                       "  WINS        DOUBLE ?",
  95.                       "  VINS        DUBBEL ?",
  96.                       "VOITIT",
  97.                       "  WINS",
  98.                       "  VINS",
  99.                       "VIRHE !",        /* SekaTextit[18+KIELI] */
  100.                       "ERROR !",
  101.                       "FEL !"
  102.                       };
  103.  
  104.  
  105. UBYTE kortit[75] = {0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17,
  106.     /* RUUTU */     0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x1D,
  107.  
  108.     /* RISTI */     0x21, 0x22, 0x23, 0x24, 0x25, 0x26, 0x27,
  109.                     0x28, 0x29, 0x2A, 0x2B, 0x2C, 0x2D,
  110.  
  111.     /* HERTTA */    0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
  112.                     0x48, 0x49, 0x4A, 0x4B, 0x4C, 0x4D,
  113.  
  114.     /* PATA */      0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
  115.                     0x88, 0x89, 0x8A, 0x8B, 0x8C, 0x8D,
  116.  
  117.                     0xFF,
  118.                     0x00, 0x00,
  119.                     0x00, 0x00, 0x00, 0x00, 0x00,
  120.                     0x00, 0x00, 0x00, 0x00, 0x00,
  121.                     0x00, 0x00, 0x00, 0x00, 0x00
  122.                    };
  123.  
  124. UBYTE *virhetekstit[]=  {
  125.                         { " " },
  126.                         { " " },
  127.                         { " " },
  128.                         { " " },
  129.                         { " " },
  130.                         { " " },
  131.                         { "Bittikarttaa ei voi avata" },
  132.                         { "Can't open BitMap" },
  133.                         { "Kan inte öppna BitMap" },
  134.                         { "Intuition.library ei aukea" },
  135.                         { "Can't open Intuition.library" },
  136.                         { "Kan inte öppna Intuition.library" },
  137.                         { "Diskfont.library ei aukea" },
  138.                         { "Can't open Diskfont.library" },
  139.                         { "Kan inte öppna Diskfont.library" },
  140.                         { "Graphics.library ei aukea" },
  141.                         { "Can't open Graphics.library" },
  142.                         { "Kan inte öppna Graphics.library" },
  143.                         { "Näyttö ei aukea" },
  144.                         { "Can't open Screen" },
  145.                         { "Kan inte öppna Screen" },
  146.                         { "Ikkuna ei aukea" },
  147.                         { "Can't open Window" },
  148.                         { "Kan inte öppna fönster" },
  149.                         { "Grafiikka-tiedostoa ei löydy" },
  150.                         { "Can't find Graphics-file" },
  151.                         { "Kan inte finna Grafik-filen" },
  152.                         { "Chip-muistia ei ole riittävästi vapaana" },
  153.                         { "Not enough free Chip-memory" },
  154.                         { "Inte tillräckligt Chip-minne" },
  155.                         { "Topaz.font (koko 11) ei löydy" },
  156.                         { "Can't find Topaz.font, size 11" },
  157.                         { "Kan inte finna Topaz.font, storlek 11" },
  158.                         { "Soundi-tiedosto ei aukea" },
  159.                         { "Can't find all soundfiles" },
  160.                         { "Kan inte finna alla ljud-filorna" },
  161.                         { "Kaikki soundit eivät ole IFF-muodossa" },
  162.                         { "All sounds are not in IFF-format" },
  163.                         { "Alla ljud-filorna är inte i IFF-formen" },
  164.                         { "Viestiportti ei aukea" },
  165.                         { "Can't open MessagePort" },
  166.                         { "Kan inte öppna MesssagePort" },
  167.                         { "Äänikanavien varaus epäonnistui" },
  168.                         { "Can't allocate audiochannels" },
  169.                         { "Kan inte reserva ljud-kanaler" }
  170.                         };
  171.  
  172. #if defined FEA_NOT_ENGLISH_GIFTWARE
  173. UBYTE *abouttext[]= {
  174.                     { "VideoPokeri v1.02 © JanTAki -94" },
  175.                     { " " },
  176.                     { "Tämä peli on palautettu Raahen" },
  177.                     { "tietokonealan oppilaitoksessa" },
  178.                     { "C-kielen harjoitustyönä tam-" },
  179.                     { "mikuussa -92.  Palautettaessa" },
  180.                     { "versionumero oli 0.85!!  Sen" },
  181.                     { "jälkeen on tullut mm. äänet." },
  182.                     { "Pelin käyttömukavuuden paran-" },
  183.                     { "taminen jatkuu yhä..." },
  184.                     { " " },
  185.                     { "Lue VideoPokeri.doc saadaksesi" },
  186.                     { "lisää tietoa pelistä ja sieltä" },
  187.                     { "peliohjeetkin selviävät." },
  188.                     { " " },
  189.                     { "Janne 'JanTa' Kantola" },
  190.                     { "Aki Löytynoja" }
  191.                     };
  192. #endif
  193.                     
  194. USHORT varit[] = {          /* NORMAALI   */
  195.      0,  0,  5,             /* TAUSTA     */
  196.      9,  9,  9,             /* HARMAA     */
  197.      9,  9,  9,             /* JOKERIKORTIN VÄLIVÄRI! */
  198.     12,  5,  7,             /* MARJAPUURO */
  199.     15, 15, 15,             /* VALKOINEN  */
  200.     14,  0,  0,             /* PUNAINEN   */
  201.     15, 14, 10,             /* KERMA      */
  202.     15, 15,  0,             /* KELTAINEN  */
  203.      0, 10, 15,
  204.      0,  6, 15,
  205.      0,  4, 11,
  206.     15,  8,  0,
  207.     13,  6,  2,
  208.      7,  3,  0,
  209.     15,  8,  0,
  210.     13,  6,  2,
  211.      7,  3,  0,
  212.     12,  5,  7,
  213.      7,  7,  7, 
  214.      0,  0,  0,             /* MUSTA */
  215.      0, 10, 15,
  216.      0,  7, 14,
  217.      0,  4, 11,
  218.     15, 15, 11,
  219.     12, 12,  0,
  220.      8,  8,  0,
  221.      0, 14,  0,
  222.      0, 11,  0,
  223.      0,  8,  0,
  224.     15,  8,  0,
  225.     13,  6,  2,
  226.      7,  3,  0,
  227.  
  228.      0,  0,  3,         /* PUNAINEN */
  229.      9,  1,  7,
  230.      9,  1,  7,
  231.     12,  0,  5,
  232.     15,  7, 13,
  233.     14,  0,  0,
  234.     15,  6,  8,
  235.     15,  7,  0,
  236.      0,  2, 13,
  237.      0,  0, 13,
  238.      0,  0,  9,
  239.     15,  8,  0,
  240.     13,  6,  2,
  241.      7,  3,  0,
  242.     15,  8,  0,
  243.     13,  6,  2,
  244.      7,  3,  0,
  245.     12,  5,  7,     /* HIIRI */
  246.      7,  0,  5, 
  247.      0,  0,  0,
  248.      0, 10, 15,
  249.      0,  7, 14,
  250.      0,  4, 11,
  251.     15, 15, 11,
  252.     12, 12,  0,
  253.      8,  8,  0,
  254.      0, 14,  0,
  255.      0, 11,  0,
  256.      0,  8,  0,
  257.     15,  8,  0,
  258.     13,  6,  2,
  259.      7,  3,  0,
  260.  
  261.      0,  0,  0,     /* VIHREÄ ; TAUSTA */
  262.      3,  6,  0,     /* VÄLIVÄRI */
  263.      7,  3,  0,     /* HARMAA   */
  264.      4,  0,  0,     /* MARJAPUURO */
  265.      7, 10,  1,
  266.      6,  0,  0,
  267.      7,  9,  0,
  268.      7, 10,  0,
  269.      0,  5,  1,
  270.      0,  1,  1,
  271.      0,  0,  0,
  272.     15,  8,  0,
  273.     13,  6,  2,
  274.      7,  3,  0,
  275.     15,  8,  0,
  276.     13,  6,  2,
  277.      7,  3,  0,
  278.     12,  5,  7,
  279.      2,  5,  0, 
  280.      0,  0,  0,
  281.      0, 10, 15,
  282.      0,  7, 14,
  283.      0,  4, 11,
  284.     15, 15, 11,
  285.     12, 12,  0,
  286.      8,  8,  0,
  287.      0, 14,  0,
  288.      0, 11,  0,
  289.      0,  8,  0,
  290.     15,  8,  0,
  291.     13,  6,  2,
  292.      7,  3,  0
  293.     };
  294.  
  295. varitila [32];
  296.  
  297. /* end of sheets.h */
  298.